	
		'CREAZIONE UTENTE SU PDC
		Dim WshShell 
		Set WshShell = WScript.CreateObject ("WSCript.shell") 

		WSHShell.Run "runnas /user:COMINIO\administrator /pass:PASSWORD "& Chr(34) &"netsh dhcp server scope 1.0.0.0 add reservedip 1.1.1.2 0003EF159A6B My_PC  BOTH"& Chr(34)
		
		WScript.Sleep 100
		WshShell.Sendkeys "PASSWORD"
		Set WshShell = Nothing 
	
		